perm filename XXX.C[C,JRA] blob sn#019582 filedate 1973-01-13 generic text, type T, neo UTF8
01000	(IF-NEEDED C-F-NOT-EXISTS
01100	   (CODE-FOR (NOT (EXISTS !>V !'G))
01200	      (PROG "AUX" !,V
01300	          :LP (COND ((FIND !,V !<G1) (MAKE (NOT !<G2)) ))
01400	              'OK))
01500	   (CSETQ G1 (PREFIX '/!/; V G)
01600	          G2 (PREFIX '/!/, V G))
01700	   (NOTE))
01800